function List = normalizedFPN(beta,p,L,U)
pList = [];
e = L;
while (e <= U)
    l = beta^e;
    while (l < beta^(e+1))
        pList = [pList,l];
        l = l + beta^(e-p+1);
    end
    e = e + 1;
end
List = [-fliplr(pList),0,pList];
